home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / auto character (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  69 lines
  1. 10 rem auto character editor
  2. 20 rem ludo decock
  3. 30 rem lindenstraat 26
  4. 40 rem 8840 gits
  5. 50 rem belgium
  6. 100 a=a+1:ifa=1thenload"auto c",8,1
  7. 110 poke53280,0:poke53281,0:printchr$(147)chr$(14)chr$(9):poke2,0:poke787,0
  8. 130 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  9. 140 print" [206]oluxe auto-character editor [146]"
  10. 150 print"    ([195]) 1987 [198]lossoftware     [146]"
  11. 160 print"[154][212]his program converts a character set"
  12. 170 print"with load address 12288, to a [206][207][204][213][216][197]"
  13. 180 print"character set."
  14. 190 print"[150][198]ilename character set (q)?":poke19,1:input"[158]";fi$
  15. 200 poke19,0:iflen(fi$)<1orlen(fi$)>16thengoto190
  16. 210 iffi$="q"thenprint"[147]":sys51200:goto250
  17. 220 print:print"[208]ut disk with characterset in drive !!"
  18. 230 print"[155] [208][210][197][211][211] [193] [203][197][217] [146]":poke198,0:wait198,1
  19. 240 sys57812fi$,8,1:poke780,0:sys65493
  20. 250 forx=12288to12295:pokex,255:nextx
  21. 260 forx=12288+(32*8)to12288+7+(32*8):pokex,0:nextx
  22. 270 forx=12288+(160*8)to12288+5+(160*8):pokex,252:nextx
  23. 280 forx=12288+6+(160*8)to12288+7+(160*8):pokex,0:nextx
  24. 290 iffi$<>"q"thenprint"[147]":goto330
  25. 300 printchr$(14)"[147][155][195]haracterset 1 or 2 ?":input"";k$
  26. 310 ifk$<>"1"andk$<>"2"thengoto300
  27. 320 ifk$="2"thenpoke787,10
  28. 330 print"[147][195]haracters double in [216], [217] or [206]ormal.":input"";d$
  29. 340 ifd$<>"x"andd$<>"y"andd$<>"n"thengoto330
  30. 350 ifd$="x"thenpoke2,10
  31. 360 ifd$="y"thenpoke2,100
  32. 370 print"[156] press a key [146]"
  33. 380 poke198,0:wait198,1
  34. 390 poke55,0:poke56,48:run400
  35. 400 ifpeek(2)=10thendx=8
  36. 410 ifpeek(2)=100thendy=8
  37. 420 ad=12288:ifpeek(787)=10thenad=14336
  38. 430 poke56334,1:poke53272,peek(53272)and240or(ad/1024):dimte$(36)
  39. 440 ifpeek(787)=10thenprintchr$(142)
  40. 450 forch=48to90:ifch>57andch<65thengoto650
  41. 460 print"[144]";chr$(ch):le=le+1
  42. 470 p=peek(1024):p=p*8:a=ad+p
  43. 480 print"[147][159]converting noluxe character set":forx=0to7:a(x+1)=peek(a+x):nextx
  44. 490 print"":forc=1to8:printtab(12);
  45. 500 forx=1to8
  46. 510 b=int(a(c)/2):b=b*2:b=a(c)-b
  47. 520 ifb=0thena$(x)=a$(x)+" [146]"
  48. 530 ifb=1thena$(x)=a$(x)+"@"
  49. 540 a(c)=int(a(c)/2)
  50. 550 nextx
  51. 560 fori=8to1step-1:printa$(i);
  52. 570 ifpeek(2)=10thenprinta$(i);
  53. 580 ifpeek(2)=100thennexti:print:fori=8to1step-1:printtab(12);a$(i);
  54. 590 a$(i)="":nexti:print
  55. 600 nextc
  56. 610 te$(le)="":fors=1316to(1324+dx):so=0
  57. 620 forss=stos+((dy+8)*40)step40:so=peek(ss):ifso=0thente$(le)=te$(le)+"1":nextss
  58. 630 ifso=160thente$(le)=te$(le)+"0":nextss
  59. 640 nexts
  60. 650 nextch
  61. 660 poke53272,peek(53272)and240or21
  62. 670 print"[147]saven disk : filename ?"
  63. 680 poke19,1:input"[154]";fi$:iflen(fi$)<0orlen(fi$)>13then670
  64. 690 poke19,0:fi$="k."+left$(fi$,len(fi$)):open2,8,2,fi$+",s,w"
  65. 700 print#2,8+dx:print#2,8+dy:forf=1to36
  66. 710 print#2,len(te$(f)):print#2,te$(f):nextf:close2:
  67. 720 print"[147]"
  68. 730 poke2,0:poke787,0:run110
  69.